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BEGIN 
% AUXMEM 
COMMFNTt 



UTILITY PROGRAM - OCTOBER* 1971 

TIT.LFI R^i'aQQ/H57Q0 MAPlfs XIV SYSTEM HFuEASE 



* FILE 101 SYMBQL/AUXDATA TAPE 101 S YMB0L2/F ILEOOQ * 

IS PROPRIETARY TO BURHQUGHS CORPORATION * 
af RFPRQDurrn* nsFn. or nisnnsrn *_ 



THIS MATERIAL 
AND IS NOT TO 



* EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON 

* WRITTEN AUTHORIZATION UF THE PATENT DIVISION OF 

* B URROUGHS CQRP Q H A T iri Nt J fc T R T.l I T » MlChH i AN 4R?:1? 



OOOlOOOO 
OOOiOlOG 
00P10110. 

00010111 

00010112 
Q001Q1 13 



* 
* 



* 
* 



COPYRIGHT 
AA386657 



(C) 1972 BURROUGHS CORPORATION 



* 



% 
% 

JL 
% 
% 

JL 
% 
% 

JL 



DOES.. THE FOLLOWING 
COMMONsO: 

CRFATES "AUXMCP/OISK 



BASED ON COMMON VALUES 

" F I L L FRUM . STUFF DECK A \ Q PROC E DURE N A M E S 



00010114 
00010115 

Qomono 

00010H7 
00010118 
nnoim iq 



CQMM0N*1* 

CREATES "AUXINT/OISK" FIuE F'RUM INTRINSIC NUMBERS 
COMMON*?* -. » 



00010200 
00010300 

oouiQaoo 



LISTS 

CQMM0N=3! 
TRAC E S 




OCCURJffiCES OF MCP AND INTRINSIC DISK ACCESSES 
MCP FUNCIIQ N S 



00010500 
00010600 
00010700 



occurences of 



% CQMMON-41 
X PUNCHES 
R EAL CO M MON? 



00010800 
00010900 
00011000 



MCP PROCEDURE NAMES FROM STUFF DECK 



FILE CARD 0(2*10*30); 
FILE PUNCH 0C2M0*30); 
TH E L IN E l C 2 il^; 



00011100 

0OOH2O0 

ooQinon 



FILE SPO 11(2*10); 

FILE STUFF DISK SERIAL 

FILE MCPFILE OISK SERIAL 



FILE INTFILE DISK SERIAL 
FILE SYSMTR DISK SERIAL 
DFFINE NUMHFSTUFRn WS = <*# » 



C? flJ 3 Q3 "AUYMCP wwni.SK 



DEFINE MATCH(MATCHl*MATCH2)s 



£20! 30 J "aUXINT ""DISK 

"SYSTEM ""MONITOR" 
STUFRPhSUE«51?*! 



(2,10*30?; 
f?t3QtSAVE 30)f 



(2*30*SAVE 
(2*30); 



30) 



oouiuoo 

00011500 
00Q11600 
00OH7O0 
O0OU800 
0,0 Q 11900 



00012000 
00012100 
QQU122Q0 

0OO123O0 
00012400 
nnQl25nn 

- . . ,. ...... 00012600 

ARRAY TEMP[0ll5]»A[Ot3Oj; 00012700 

SAVF ARRAY CRnrOHIM* onOlPwpfl 

X * * * * ********************************* ******* * * *********************** **Q0Qi29QQ 

«.D_... *n«. -.».., „.._.., , « « • •• A I I I C ftj 1 00013000 



DEFINE MATCH(MATCHl*MATCH2)s 

(REAL(B00LEAN(MATCH1 ) EOV B0OL£ANCMaTCH2))srEaL(N0T FALSE) )#; 

REAt. T»K*PtR*SPtR. CFi l *CEl LCOuNT*MAXROWS*MINC£lL>MA*CEll; 

ARRAY STUF»KeYS[OINU«0FSTUFR0WS#0ISTUfr0»JSIZe3; 

array TrMPrflMSi.irnnn i! 



STREAM PROCEDURE M0V£CN#A,8); VALUE NJ 



BEGIN SJlaAj DJJ_»8J PSl 



«N 



X * * *************************** 

STREAM PROCEDURE ZERO(A); 

BEGIN DIjsa; DSt«8LlT"Q"; 



00013100 



wos; end; uwt.,*^ 

************************* *****************qqO 13200 



si »»a; Qsts29 wds; end; 



X******************************** 
REAL STREAM PROCEDURE AOQRESS(A); 

BEfliN SIUa; ADOREssigsi; end; 



00013300 
000134 00 



*************************************** o 1 3 5 

00013600 
00013700 



p ************ **********************0Q01 3800 



X************************************* 
DEFINE PRINTCELL» 

sh«loc cell; svh»di; dshbdec; DsssLir'x"; oi«*svi; ps»«7fill; 



sv2i»oi; sn«sv2; diiksvu 

9C1F SC»"X" THEN JUMP OUT ELSE D*»»CHR); 
QS*s*l TT" (»»» S\M1»0 T ; SH»LOC CELU 



00013900 
0Q014Q00 



00014100 
00014200 
00014 300 
00014400 



16(DSI*3RESET; 3CIF SB THEN DSisSET ELSE DSJxRESET; SKIP SB)); 

ds««lit m x , »; dii«svi; ds»=i5fill* sv2«*di; si»»sv2; ou*svi; 

SC»"X" THFN .\UHP OUT FI.SE DS8=CHR); nS8s2l , IT») "« : , uuui.nuu 

r*************** **************************** oo 014 7 00 

•n i .TVSP.U .Nfl A.fOnirruD.(i>TruM nnnuaAA 



17 UF 



X***** ********** ************* 



00014500 
O OP 1 46 00 



* w w * * * * * m w » . » w * * • w .* * * _#■ * * » * * * * * *■ *, * * * • » w * * * w * * * *. • • 

STREAM PROCEDURE 0UTFMT(SGN* CELL*TYPE,N>Nf?LG# Ci 

X* ********************************* M* ***♦***» 



CRO'TEMP,SWTCH)i 



00014800 



* * ******** **************** poo 1 4900 
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31 
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55 
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VALUE SGN,CELL>TYPE»N»NFLG»SiNTCH; 
% FORMATS INFORMATION FOR OUTPUT TO 
SP,N !! IS VALPF TN [1811 FlFLO OF 



X 
X 

JL 
X 

X 

_JL 
X 



LN- 
"CELL" 
"TYPE" 



PRINTER 
aYSTEM/frHMTOR 



hQRD 



IS VALUE IN [9*393 FIELD OF SYSTEM/MONITOR WORD 
IS VALUE IN t3«6J FIELD OF SYSTEM/MONITOR WORD 
S NUMBER OF OCCURANCES OF CELL. UU 391 IN MONITOR 



00015000 
00015100 
0Q015?00 



L_N 2_Ii 

•NFLG" IS TRUE IF PRINTING THE NUMbER OF CCCURANCES 
IS STUFF FILE CARU IMAGE RECORD 



F ILE 



0001530( 

00015400 

00015500 



'CRD 



"TEMP" I S OUTPUT A RR A Y T O BE PR I ME D 
"SWTCH" (VALUES 0,1*2 



OR 3) DEFINES FORMAT OF PRINTED RECORDS 



00015600 
00015700 
0QO1580Q 



awTUM" tVALUto @»1*2 UR 3J Utr-iNta i-ukmat Or ruiNTtD n 
BEGIN LABEL H> L2» L3* L4* CT# EX IT; LOCAL SV1*SV2; 
QXlMl£MEJ nSlBflllT" "t STI»TFMPi O.SuU h, riB I DTigTFMP; 



tWTfcWf J 

ci«s«ci+swtch; 

GO TO Hi % MCP 



00015900 
00016000 
0Q01610Q 



PROCEDURE NAME 



GO TO I. 2,? % INTRINSIC NUMBER 

GO TO L3; X TRACE (SPECIAL) NUMBER 
60 TO L4; % RESTART MARKER 
11' PStg9LTT"PRT CELL "i PRlNTCELLf 



00016200 
00016300 
00016400 



SpsCRDJ SUsSl + s; 63 C IF 

NFLG( JUMP OUT TO CI )> GO 

U 2» D S »slQ Ll T"lNTR l NSIC "; 



SC=ALPhA THEN DS:=ChH ELSE JUMP OUT). 
TO EXIT> 
PRINT. C E LtJ 



00016500 
00016600 
00016700- 



NFLGCJUMP OUT TO CT)i GO TO E*lTi 

L3» dsi«6LIt w trace "; sijsloc type; usj*2Dec; ds«*3lit" «s "; 

Sr.N(nstci_lT"»«n; PRTNTrnii . 

NFLG(JUMP OUT TO CT)i GO TO EXIT> 

DS: = 13LlT f, RESTART POINT"; DS : = 10L IT" *" ; GO EXIT; 
CT » DS: = 10LIT" OCCURRED "; Sll«LUC Mi 5JLU_e£JJ C a l *POEC ; DSlsLlT"*"; 



00016800 
00016900 
00017000 



00017100 

00017200 

-00017300 



L4i 



Di»*SVi; DSIs7FILL; SV2**Di; SI»*SV2; DissSVi; 
9(IF -SC**-*." THEN JUMP OUT ELSE DS»»CHR); 
nSi»7LTT» TTMES"; 



00017400 
00017500 



"; 



EXIT! 0S«»16LIT" 

END STREAM PROCEDURE 
%*»•»*••»»»»** ******* 



00017700 
00017800 
Q00l7Q0n 



OUTTMT/ 
********************************************** 



PROCEDURE SETKEYS; 

%******************************* ****** ************ * * **************** 

'S TO STUFF FILF FOR SUBSEQUENT rtANDOM READS FROM DISK 

l O f I »— f"l P* • M r- A i *s f I I f . 1 Li/Till HIT I Tki*r «r M f\ l"\ i « A I a 



00018000 

00018100 

****QQQl8?Qfl 



X BUTI n KEYS TO STUFF FILF F 



INTEGER ROh^COL; 



BEGIN LABEL EOF; HEAL CELL, L 1SKCUUNT ; 
REAL STREAM PROCEDURE CELLNUMBERC CRD ) ; 
% nRTAINS PRT CFI I NUMHFH FKHM STUFF PEEK TARO IMAT.F 
BEGIN 

sh*crd; si:*si+4; oijsloc cellnumber; ds«=4Qct; 

END STRFAM FRnPFOURF r.FlLNUMBfcRl 



00018300 
****00018400 
QQ 0A 85QQ 



00018600 
00016700 
QQOlBflQO 



DlSKCOUNT:=-i; MINCELL:=MAXCELLi=U 
DO BEGIN 
READ ( STUFF M Of CRnUVKFdf U UJSKCUUNT 



00018900 
00019000 
QQ01 91 Q0 



CELL I» CELLNUMBER(CRB); 
IF CELL LSS MINCELL THEN 
TF CPLL GTR MAXPFLI THEM 



:,e (USKCUUN T + It 



00019200 
00019300 
00019400 



ROW l» CELL Blv stufruwsue; 
KEYS [ROW* COL ]*=DISKCQUNT; 
FND UNTIL FA LSE; 



MINCELL i*CELU 
MAX CELL teCFLI I 



cul«*cell mod stufrowsize; 



00019500 

00019600 

_Q0 1 97 QQ 



EOFi END PROCEDURE SETKEYS; 



00019800 
00019900 
)QO a O QQ Q 



X, 

cas e 



C OMMON O F 



BEGIN 

BEGIN X CASE U 

I ABEI. RFAnCARn*FRHOR» Fn F»EXlTi 



00020100 

,00020200 

000203 00 



00020400 

00020500 
00020600 



FORMAT CARDERRORCERRQR IN THIS CARD")* 00020700 

NOSTUFOECKCNO INFORMATION IN STUFF DFCK")1 00020800 

X SET UP Fll F AliXMCP/nlSK USING STUFF FTLF AMP PHflCCnu RE l^AMF^ oofl2nppo 
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43 
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14 
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| 29 

90 
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% AS SPECIFIED 3Y USEK 

% *********************** * *** * 

Rfin i fAN STRF A M PRf l K F . m i R F SC AN C A unt , Chi ) . Tf MP i I [H)^l,?(]() 

************************************************** ******* * * * * ***** o Q 2 1 30 
X TRANSFERS PROCEDURE NAME FROM CARD IMAGE TO "TEMPtOJ" **' /; * **'* "'"^ "™ 
% TR A NSFER S CHAR A CTER SI Z E TO W TEMPCQ] M 



00021000 

*************************************0qQ^1jqq 

-■—•■■ -••■■ - -■ 000*12011 



IN A 7 FMT 



BEGIN LOCAL 

SI JsCRD' 

? C T F fiCAI.PHA 



t; label exit; 

thf.n if sc ls.s "q" then vump qutl s u « s !■» 1 }j 



00021400 
000 2 150 



IF TOGGLE THEN ELSE 
BEGIN 

TAI I Yt.l : SCAMftAHfilaTAU Yt 



00021600 
00021700 
OOU21600 



end; 
dii«temp; oi ; 

9(DSt=BLlT"C 



fiQ TO EXIT I 



00021900 
00022000 
00Q221Q0 



'Qi+a; 



nH'UWi 



FXIT! 



7(IF SC*ALPHA THEN ELSE jUnP OUT 2 TQ EXIT; 

dsischr; taliy««tally+i))*' 

Tl»TAilY> STi»Lnr. T»mi«T£MPt ns:»npst 



00022200 
00022300 
QOQ??UQQ 



00022500 

00022600 
oooggrnn 



BEGIN 
TALLYl*i; 

end; — — 



00023500 
Q 2 3600 



scanstuffi*tally; go to exit; 



si»=si + 2; di»*cell; dsjs4QcT; du*temp. 

9CDSJ»8LIT"C "; 0l:sUI-7; 

7CIF Sr^ALPhA 1HFN FLSF JUHP OUT 7 TD L1J 



00023700 
00O2380O 
00023000 



0SJ*CHRi TALLY*«TALLY+m; 

U* totally; sii«loc-ti oHssue; dsi 

JLxiil enp stream PRncEnuRE scans tuff; 

J.J_J-J..^J.jJ.J.L.l Ll J. J. J- .1 J_ j _L _i ... _, ,i. J_ J_ J. J. _. j. _. 



00024000 
00024100 
0QO2 4 P0Q 



'MOSJ 



%**********************_„_. 

boolean PROCEDURE setupstuf array; 



00024300 
00024400 
00024500 



*******************************************Q()02460Q 

00024700 



it;************************ *************** *****************»********qqq < )4qoq 



BEGIN 

X TRANSFER 



RFAL T,J,JPRrv*S|Zg-; 



AMES AND CELL NO. FROM STUFF FILE TO "SW" ARRAY 



RFAQIN> 



LABEL READIN, EOF, FINISH; 

FORMAT FMTC" INSUFFICIENT TABLE SPACE FOR STUFF DEC*"); 
■lQ»CROr JLUXE-OE 1/ 



00024900 
00025000 
Q QOZ5 10Q 



00025200 
00025300 
00025400 



RFA[HSTUFF^),n i .CRDC*1)lF,nFl/ 00025400 

IF SCANSTUFFCC R D>TEMP#SIZE#CE1-L> THEN GO «EA0IM XNQT PR0ceDURe00025500 
SIZE «• (SIZE ♦ 6 ) DIV 7; 00025600 
TF (SI7E+J) fiTR STUFROwSlZL THEN X ND ROOM TM HQW 00025700 



BEGIN 

SJUF..II#.JPREVJ.C17U]I».1/ % END OF ROW MARKER 

IF CHn + 1) GTR NUMQF S TuFR Q WS THEN I N O MOR E R O WS 



BEGIN 
WRITE(SPO»pMT); 
-tAlOJ 



00025800 
00025900 
00026000 



GO TO finish; 



j:=o; 
end; 

STUFflfJI >sStZE ft r.FLLriai33:ia]; 



00026100 
00026200 
00026300 



MQVE(SlZE#TEMP*STUFCI#J+n)J, 

„»prev*«j; 

JI»J+STZF+1 ; 



00026400 
00026500 
QQ026 6QQ 



00026700 
00026800 
Q QQ 2690 Q 




10 

11 

12 
13 
14 

15 



16 
17 



19 

20 



21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 



33 

34 

35 

96 

37 " 

38 

38 

40 

41 

42 

43 



45 
46 
47 
•8 



49 
50 



52 



GO to readin; 

EOF 1 i IF J GTR STUFROWSIZE 
B E G IN 



THEN * NO ROOM IN HOW 



STUFCN JPREV], U7lUJsi; % END OF ROW 
IF (1**1+1) GTR NUMQFSTUFROWS THEN 

BEG I N 



00027000 
00U27100 

000 2 7200 



MARKER 



00027300 
00027400 
00027500 



xritecspcj#fmt)j 
end; 

JlsQi —— 



GO TO fimsh; 



end; 

STUFtI*J3«sBEAL(N0T FALSE); 
M At ROWS La I 



00027600 
00027700 
002760 



.i ■ ^.i . m ■ . i^. • : mim ■ ' ■ ■ '■ » . ' ■ ' ^— ^ ' i i i i ii i w~_ „ , ■ , ■ ■ . 

SETUPSTUFANRAY ;s 5TUFLC#03 NEti REALCNC1 FALSE); 
FINISH! END PROCEDURE SETUPSTUFARRA Y ; 



00027900 
00028000 
00026100 



00028200 
00028300 



» END PROCEDURE SETUPSTUFAKRA Y ; 00028300 

ft*************************************************** **************QQ028&00 

REAL PROCEDURE PRTCELLC STuF* TEMP } ; ARRAY STuF, TEMP t 03; 0Q02850Q 



REAL PROCEDURE PRTCELLC STuF* TEMP ) ; ARRAY STuF, TEMP t 03; QQg*OSOQ 

%•***************************************************** ***********QQQ2g6nQ 
X COMPARES PROCEDURE NAMES FROM STUFF DECK HTTH CARD TMAfiE NAME ««n^o,«« 
* RETURNS PRTCF! . L NUMBER OF PROCEDURE. IF FOUND; 



RETURNS PRTCELL NUMBER OF PROCEDURE, IF FOUND; 
BEGIN 
REAL I>K>L»I^AX; 



00028b00 
00028600 
QQ02B7QQ 



boolean lastentry; 

label next w0rd»next#exit; 

NEXTWHRD* IF STUF t I 3 sRE AL C NOT FALSE) 



00028800 
00028900 
00029000 



THEN Gfl TO EXITJ % END QF TARLP 



00029100 
00029200 

00029300 



IMAX !» I 
LASTENTRY 
L i g ; 



+ STUFCIJ.C33! 153* 
l; H00LEAN(STUFCI3 



C 17 UJ); % END OF HOW MARKER 



0QU2940Q 

00029500 

-OOU29600 



FOR M«I + 1 STEP 1 UNTIL IMAX DO 00029700 

BEGIN 00029800 

IF r(TENP[QJ+6)BTV 7) M Q MMftx-I) THEN fin NFXTl % ST7F 000^9000 



l»*l+i; 

IF NOT MATCHCSTUF[K)*TEmP[L3) 

&£&I4 



THEN 



NEXTl 



IF LASTENTRY THEN GO TO EXIT, 

i««imax + i; 

fiU TO NFXTWORO? 



00030000 
00030100 
00030200 



00030300 
00030400 
nn03Qsnn 



end; 
end; 

PRTCFLL' = STLFU3 



U8» 15 3 ; 



00030600 
00030700 

0QU308Q0 



EXIT: 



00030900 



END PROCEDURE PRTCELL* 00030900 

******************************* * * ********************************00031000 

r MAT StTTUPfiTltrARttAV THFKi : _ ■.-■■■.■ . flDQlll 00 



TF NOT SETUPSTUFARRAY THFN 



00031100 



BEGIN 

WRITE(SPO*NCSTUFDECK)* 
END? 



GO TO EXIT 



Kt«-1* ZERO(A); 
READCARD* RCAD(CARD,10*CRDC*3)tEOF3; 
IF SCANCARnCCRD*TFMP) THEN GQ TO ERROR; 



00031200 

0U031300 

jQQQJUOO 



OOQ31500 
00031600 
00031700 



FOR 11*0 STEP 1 UNTIL MAXROWS DO 
IF (CELL«*PRTCELLCSTUFtI**3* TtMP)) 

B£4W 



GTR THEN X FOUND MATCH 



IF <K»»KM) QTR 29 THEN X FILLED SEGMENT 
BEGIN 

WfiITF(MCPFIlE»30>AC*3); 

KJ*o; ZERC(A); 

end; 

A[ K 3 :aC ELL * 



00031800 
00U31900 
000 32 000 



00032100 
00032200 
00032300 



I-.BI 



CELLCOUNT :« CELLCOUNT 

GO TO READCARO* 

FNOI ', 



+ i; 



00032400 
00032500 
000 326 00 



00032700 
00032800 
00Q3290Q 



Jb 



>r 



13 



15 
16 
17 



19 
20 
21 



24 
25 



27 
28 



30 

31 " 



I « 

33 

34 
I 35 

36 

37" 



42 



46 

I " 

48 



49 



GO 

CO 



52 
53 



ERROR! WRITE(LINE#CARDEKR0R)J 

WRlTE(LlNECDBL]^lO#CRDC*J)i 
RQ TO REAPCARU? 



EOFt IF CELLCOUNT GTR THEN 

BEGIN 
WRITFfMCPFIl F.ifl.Aftni 



00033000 
00033100 
0003320(1 



EXIT* 



.lqckcmcpfile.*); 
end; 

END CASE 0? 



00033300 
00033400 
0Q033HQ0 



00033600 
00033700 

nooa ^ano 



• ••» » * *•»•>••••••, • • 1 1 1 • 1 1 1 1 • • h • 1 1 1 1 1 m 1 1 1 1 • t • 1 • i • • 1 1 1 • * m 1 1 1 1 1 m • 1 00033900 

BEGIN X CASE 1 READ IN INTRINSIC NUMBERS FROM CARD FILE 00034000 

— RFAi RFsm t.mmRh; Rnm fan fprhh: 1 Aar L ar anr Ann .FnF ; rinn^no 



FORMAT ERRC"ERRCR IN THIS CARD"); 

REAL, STREAM PROCEUURE NEXTNUNbER.(PTK*NhBri if 

% nRTATMS NFifT MiMRI-H FH.'iM PAHU LtOilE _ 



X RETURNS 1 TO 

X RETURNS 2 TO 

BFfiTN LABEL 



NEXTNUMBER AT END OF RECORD 
NEXTNUM8ER ON EHRQR 

\ 1 .FvtTi incti Sy.Ti 



00034200 
00034300 
00Q344QQ 



LI* 



sissptr; siissus; si?=sc; 
if sc=» " then 

RFfilN SU^SItl? fin TO L U 



00034500 
00034600 
QO034700 



FND 



IF SC»"» M THEN 

BEGIN SIlcSUi; GO TO IU END; 
TF Sr»"fH thfm % FMn nr ttecuan 



00034800 
00034900 
00035000 



IF 

IF 



BEGIN 
TALLYlsi; 

-£UQ4 



O0O351O0 
00035200 
00035300 



nlxtnumber»=tally; gu to exit; 



SC GEQ 
TOGGLE 

B EGIN 



"C" THEN IF 
THEN ELSE 



sc leu "9 M then; 



00035400 
00035500 
3560 



TALLY»a2l NEXTNUMBERJsTALLY; GO TO EXIT; 

end; 

SV l »S I i Sl l f^It t ; T A L t Ylff i ; 



00035700 
00035800 
00035900 



7(IF SC GEO ».0" THEN IF SC L£Q M 9 W THEN* 

IF TOGGLE THEN EL&E JUMP OuT; SI«*SI+1> TALLYt: 

lAMlALLU STfSm iHtB^B Ri nst» t nrn 



00036000 
00036100 
000,-16200 



sTALLY + U; 



exit * svs=si; sh = loc sv; di« s pth; dsjswqs; 

END STREAM PROCEDURE NE* TNuMBER; 

CRPrn n-n; sPTRi«AnnREsstcRoroj w ilmu^jj 



00036300 
00036400 
00036SOO 



REAOCAROt REA0(CAR0#l0#CRDt*])tE0F3; 

CRDClO3t«»REAL(N0T FALSE); PTR««SPTR; 
[in BEGIN : 



00036600 
00036700 
00036800 



00036900 
00037000 

ooQ37inn 



■IF. (RESULTlsNEXTNUMBEKCPTK*NMBR))s2 THEN X ERROR ~ 00037200 
BEGIN 00037300 
HRlTECLlNEjtRRj; mmTEd-lNE CUBL^lOjCRQC*]); EHR0H|»TRUE* 00037400 



end; 
if result gtr 

Af UtaNMRRj 



THEN GO TO HEAOCARD; X END OF RECORD 



IF (I«*I+1) GTN 29 THEN X FULL SEGMENT 
BEGIN 
WRlTEClNTFILE,3e,AC»3); ZFRU(AU Tt«6i 



00037500 
00037600 
00037700 



EOFl 



end; 
end until false; 

WRITE(lNTFlL£»30»At*J); 



00037800 
00037900 
00038000 



IF NOT ERROR 
END CASE i; 



THEN LOCK(INTFILE); 



00038100 
00038200 
00038300 



BEGIN X CASE 2 - LIST OCCURANCES OF MCP ANO INTRINSIC CALLS 
REAL I»J*K»N»HL#ROW*CODE*FCNT»FlLEMAX; INTEGER COL; 
FORMAT ; 



00038400 

00038500 

.00038600 



00038700 
00038800 
00038900 






5 'i 

56 



^r 



i 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 



13 

14 



16 
17 



19 
20 
21 
22 
23 
24 
25 
26 
27 



28 
29 



30 

31* 

32 

33 

34 

35 

36 



37 
36 
39 



40 
41 
42 



43 



45 
46 



48 



52 



54 
55 
56 



HEADING1(50("*W)#"MCP ACCESS AiMALYS I S"» 50 ("*")//) * 
HEADING2U7("*")»"INTRII\i3IC ACCESS AN AL YS J,d" » n? C "*" ) // ) * 

TNVAI, mCTNVAl TC SYSTFM/HON 1 TLH CELL w i T 1 0/ ?> 

HALTSdlO," HALT LOADS IN THIS TIME PERIOD"//); 
FILE SORTT DISK SERIAL C20»6003 (2#10*300)i X SCHT SCRAT 
t * * * * * ** * * * ********************************************* 
RnniFAM PRnrFnitPF iwPnTfiu awhav Ami: 



00039000 
00039100 
00Ui9?00 



IN THIS TIME PERIOD"//); 00039300 

C20I6003 (2#10*300)i X SCHT SCRATCH FIlE 00039400 



FILE SORTT DISK SERIAL C20J6003 (2M0*300)J X SCHT SCRATCH FIlE 00039400 
t a************************************************ »*»**»**********QnQ39<son 
BOOLEAN PROCEDURE INPUT(A); ArtHAY A[Oj; 00039600 



BOOLEAN PROCEDURE INPUT(A); ArtHAY A[0 J ; 



BEGIN 



**************************************************Q0Q39700 

, 000^9800 



IF (FCNTlsFClvT + 1) GTR FlLEMAX THEN 

BEGIN 
INPUT UTRUFi RFWTNDC SO RTT ) I 



END 
ELSE READCSCRTT*10,AE*J)1 
END PROCEDURE, INPUT 



00039900 
00040000 



Jj * * ********* ******** 

PROCEDURE 

TF R THE 



00040200 
00040300 
Q004U400 



m .i w i, uun t *nru i f , „ , _ _ — u U V *t M M U 

****************************** ****************************000 4 50 
E QUTPUT(B,A); VALUE b; BOOLEAN B> ARRAY ACOJJ 0004060 

M RFWTknfaHBTH f.Sk w .h t tp f sn at T . 1 . A [ * p I nnoa07r) 



500 





%****************************»************************************0004080Q 

'nimf pnuBJBtfi.nii awrjv A#BCO]» 00040900 



BOOLEAN PROCEDURE CQMPAREi rt# B ) > ARRAY 
CQMPAREtsACO] GTR B[Q3J 



COMP A REts A CO] G TR B [Q3J , , ^- . : QOOalQQO 

X ************************** *********** ******************** ***** ** *00041 1 00 

PROCEDURE LOWVALUE(A); ARRAY ACOj; ACO 3 l»Oi 00041200 

l a**************************************************** * ***********Qoq 4i 3 Q Q 

PROCEDURE LISTCCCURANCES(TYPE); VALUE TYPE' REAL TYPE/ 00O41400 

%*********************** ******************************************00041500 



READ INI 



LABEL EOF#REAOlN,ENDLOa»*EHRORfEXIT; 
00 BEGIN 
REAQf SV.SMTRt3Qi AT * J )t EOF it : 



0Q0 41 600 



IF ACO]*REALCNOT FALSE) THEN 
FOR H»Q STEP 1 UNTIL 29 DO 
BEGIN 



GO TO tOF; X EOF MARKER 



00041700 
00041800 
0QQ4190Q 



IF (CQ0E«»ACI3, C3»61)*63 THEN GO HEAOINJ* END 
IF CODE * 62 THEN HL»*HL+1; % HALT/LOAD COUNT 
IF fOPE^TYPF THFN 31 CUilNT THIS ONE 



00042000 
00042100 
00042200 



ROW MARKER 



00042300 
00042400 



BEGIN 

NUAtI].C9l39j; % ACTUAL CELL VALUE 

IF TYPFsQ THEN % ",CP PHT f.TI L VA L U E 



00042600 
00042700 
QQ0428QQ 



BEGIN 

if n lss mincell 

end; 



OR N GTR MAXCELL 



ERR OR! 



IF (ROW}=N DIV 

BEGIN 
HRlTECLTME>lNVALin 



00042900 
THEN GO TO ERROR; 00043000 
00043100 



END; 

col *■• n mod stufrowsue; 

STUFrR0h*CQL3 Ll 5TUF CRQn . COL 3 



STUFRQmSIZe) GTR NUMOFSTUFHUKS THEN 

N)> gd tu ENOtncip; , 



00043200 

00043300 
0JL3J 



sua. 



14 0.0 



♦ i; 



000 4 3500= 

00043600 

0043700 



ENO; * IF COUE"TYPE 
EN.DLOOP I. . END I LOOP; 

. END UNTIL FALSE; 



EOFl REWIND(SYSMTR); 

FQ* M»0 STEP I 

: FOR JtsO STE P X 



FILEMAX»»0/ 

UNTIL NUMOFSTUFROWS DO 
UNTIL STUFROWSIZE DO 



00043800 
00043900 
Q Q044 QQ Q 



IF (N»aSTUFCl#J]) GTR THEN 

BEGIN X BUILD RECORD FQrl SORT 
CRD[Q]I*n; % NUMBER OF UCCURANCES 



00044100 
00044200 

00 044 300 



00044400 
00044500 
00044600 



CRDC13 »*( J+lxSTUFR0W8lZE); 

IF TYPE«0 THEN % MCP PRT CELLS 



00044700 
00044800 
Q 00449 0Q 



4f : 



VI 
bJ 
54 
bb 
56 
57, 



n 

2 
3 



4 
I 5 
6 
7 
I 8 
9 
10 

I 11 
12 
13 
14 
15 
16 
17 
IS 



| 26 

27 
28 

> » 
30 

31 

I 32 

J3 

34 

> » 
36 
37" 

) 38 
39 
40 

I 41 
42 
♦3 



45 
46 

I « 

48 



49 
I 90 



00 

CO 

c 



3» 



o 



51 
52 
53 
54 
55 
58 



*Z_ 



READCSTUfFtKEYSlIfJ] J ♦ 1 0> TEMP [ * ] )i % STUFF DECK RECOHD 000450CC 
M0VEC8,TEMP[0]*CRD[2J ); 00045100 

E ND , ; % I F MCP PUT CF .LL VA LUE _ nnoasgnp 



HRlTE(SORTTMO»CRDC*])* FilEMAX I »FlLEMAX+i; 

end loop; 

RFHThinrSflftTTSl TF U±£MAX*li TupM r. p JC\ * * | T > 



00045300 

000 45400 
hi 1 j» — 1* — f 1 ut . MH*»u — mtrc tiu iu CJU-U fi QQa^tjpq 

Ql SQR T ( UU TPUT* I Nf UT»0> LOW VALUE* COMPARE* 10* 4000 J^FCNT 1*0/000 45600 

T * 00045700 



FCNH 

DO BEGIN 

RE.ADCSQRTT* .0,CKfU*J)i 



"fc«w> >■ ■ w n 1 1 r * un.ni.' ii - J < ■ » . ^ — , — „ — ——.. . .— . 

OuTFMT(0»cROtl3#TYPE»CROC03#l*CRDCa3*TEMP#TYPE)J 

WRlTECLINEt0BL]#15#TEMP[*]); 

FNQ UNTIL CFrNTlsFPNT*, )»FIl„FMMt 



OOOt'i BO O 



00045900 
00046000 
00046100 



EXIT: 



REWINO(SORTT)/ 

END PROCEDURE L I ST UCCURANCLS; OOU46300 

%**$ *********** ***** ******f** ***** ** t******** ****************^***^^^/)^ 

ilW SFTKEY&j [ l^lDCCAidAKCFiitaSi nnnAn^ 



00046200 
00046300 



WRlTE(HNE#HEAOINGi)i SETKEYS; L UTOCCURANCE;i<0>; 
WRITE<L!NEtDBL3,HALTS,HL); KRl Te (LINE [PAGE 1 ) ; 
FOR lien STFP 1 niMTTi wiirtnrsTtjFBnkS nn 



FOR JS=0 STEP 1 UNTIL STUFRQN.blZE DO STUF C I* J J I a 0i 
WRITECLINE»HEADING2); LIST OCCURANCESC 1 Dj 
END CASE "' 



00046500 
00046600 
OOP A 6 700 



00046800 
00046900 
Q0Q47000 




BEGIN 

si»*a; dijstemp; 

6(2(8(0S t «3RES £ T; 



3CIF SB THEN DblsSET ELSE Ob : sRESEW 
DSULIT" "H DS»s2LIT" " ) i 
END PRHCFmiRF OCXM DT bPI AY> 



SKIP SB)); 



700 

00047800 
00047900 



00048000 
00046100 

u i wr uunx — ui | mi, marLAii ______ 0Q048?QQ 

X******************* * * * * ****** ****** ** ************** ************* * goo 48 300 
incrnuRr n a si-if ttmp i j 00048400 



STREAM PROCEDURE DASH(TEMP); 

BFGIN hH-TFMPJ nS>»ftLTT "-*J 



BEGIN nH»TFMPi nSl»_L IT"-»J SltsTrMPJ QSl-14 WnS; FNni 0004B5QO 

X**************************************************************** |lr gQQ486QQ 

PROCEDURE UCTALTRACE; 000^8700 

_***********•******* ***************** j, » ***************************qq(J48rQQ 



*«*»«»■»»** »«*****»**»*****»**««*****»,>******* 

X PRINTS SYSTEM/MONITOR RECORDS IN OCTAL FORM 



BEGIN LABEL EOF; INTEGER IJ 
FORMAT FMT 



00048900 
00049000 

fUWMAI fMI ; ■-. ■■■ . ■ ■■■■'■■..■■ -■■■!■;■■ :; ■ ■ '-.■./•'.■ ,-.■ _ ■ _ 000491 00 

(40( M *")* ,, SYSTEM/MONITOR TkACE (OCTAL 6* SEGMENT )'•* 40 (" * M )// j; 00049200 

writeClInecpage]); *ritecline,fmt>; 00049300 

OQ04940 Q 



writeClInecpage]); 

DO REfiTN 



DASH(TEMP); WRlTE(LHSEtOBL3#15*TEMPC*3); 
REAO(SYSMTR*30*AC*3)CEOF3) 

IF AC03 a REAICNQT FAkSE) THEN GO TO EOF; 
FOR I««Q STEP 6 UNTIL 29 DO 
BEGIN 



00049500 
00049600 
00049700 



D C.U 1 IU 

OCTAl ni SPl AY(AfI 1>TLMP)J *R I] E f L I NE £ HftL 1 . 1 S. TEMPf * 1) : 
FNni 



E OF I 



END! 
END UNTIL FALSE; 
REWINO(SYSMTR); END PROCEOURE OCTALTRACEJ 



00049800 
00049900 
00050000 



% * ********************** 
PROCEDURE TRACE; 



00050100 
00050200 
00050300 



***************************** *************Q0050400 

00050500 



_***** •**********••****•********* *********»***********»***********0Q05Q 6 QQ 



-■WWW» WWW»«WW»»***W***»*******»W****************************ft* 

X PRINTS VALUES FROM SYSTEM7MQNTQR FILE IN QRQER OF 8CCURANCE 

BEGIN LABEL READIN,EOFj REAL CELL#N*SWTCH,TYPE»LOC #3GN; 
FOfMAT FMTCSOt"*"). " SYSTEM/MONITOR J_R__E__ 5Q(»t»»)//)J 



00050700 
00050600 
00050900 



J 2 'I 

W 



41 

'If, 

IF 

•17 ' 

48 

*9 

'SO 

51 

62 

-,3 

■)4 

55 

y 



h 



R E- APlNt 



WRITECLINECDBLJ»F'M1 ); 

DO BEGIN 
RE A D CS V5MTRt 3 Q>AC» J ) C EOf ); 



OQUblOOO 
OOObllOO 
0005 1 30 



1 

2 

3 
4 
6 
6 
/ 
8 
9 
10 
11 
12 



IF ACOJ * RIALCNQT FALSfc) THEN 
FOR U*0 STEP 1 UNTIL 29 00 
B EGI N 



GO TO EOF/ 



00051300 
00051400 
00051500 



CELlisACl], 
IF TYPE=63 

S K l TCH i= -, — 



[9:39j; SGNtaAU J.tl*l J; 
THEN GQ TU READlN/ * END 



TYPE*»A[IJ,[3I6]J 
OF ROW MARKER 



00051600 
00051700 
518 00 



13 
14 
15 



16 

17 



19 

20 
21 



22 
23 



25 
26 
27 
28 
29 
30 



IF 

IF 

-LfL 



TYPE«62 THEN 3 ELSE IF TYPE GT« 1 THEN 2 ELSE TYPE* 

TYPE=0 THEN X PRT CELL FOR MCP 

CELL fiEQ MINCELL AND CFLL LEfi MAXC F LL TH EN 



00051900 
00052000 
00052100 



BEGIN 

L0Cl=KEYS[CELL DlV STUFROWSIZE'CELL 

BKACf STUFFrLOCJf ULtXfllLUJ 



MuD STUFRQwSlilE]/ 



-X 



00032200 
00052300 
U5JL 



-OH 



'Mia.. 



EnC ELSE SWTCHi»2; % TREAT AS "TRACE" IF 
OUTFM T ( SGN / CELL »TYPE>0#0* CRD/ TEMP' SWTCH); 

WRITECLlNE[0BLlzl5»TfrMPC*]3; 



OUT OF RANGE 



00052500 
00052600 
0005i>700- 



JLQf_j_ 



END I LOOP; 
END UNTIL FALSE; 
.RE.WTnP(SYSMTRH E,iMD 



PRQCFDUHE TRACE/ 



setkeys; trace; OCTALTRACE/ 
END CASE 3; 



ooo52aoo 

00052900 
■ 00Q5 3 Q0 Q. 



» » « « « , .» «»» »«» !» 



««»«»«» t « « « t t « 



» 1 » » « 1 * 



«» »» » . « ««« » « t i« » «. 



00053100 
00053200 
00053300 



BEGIN * CASE 4 - PUNCH MCP PRuCEUtRE NAMES FROM STUFF DECK 

LABEL READIN/ECF; 

STREAM PROCEDURE HEFORMAUCRO/TEMH ) i , 



00053^00 
00053500 
53O 00 



BEGIN 

pn*TEMP; DSJadLlT" • 

SltaCRD? SIIbSUs? 0] 



/ SI«»TEMPI 

htfmp; 



05t»9 *DS; 



00053700 
00053800 
Q5.K 



JiSX 



1900 



31 
32 
33 
34 
35 
36 



63UF SC = ALPHA THEN DSI=CHR ELSE 
END STREAM PROCEDURE REFORMAT/ 
DP BEGIN 



jump out); 



REAOINI READCSTUFF/ 10/CRDt*] HEQF J/ 

IF CRDtO].tl2lO] NEO "1" THEN 
REFORMATfCRQ/TEMP); 



00054000 
00054100 
00Q54P0Q 



GO TQ READIn; X NOT PROCEDURE 



00054300 
00054400 
00054500 



E QM 



WRITE (PUNCH/ l0/TEMP[*]j; 
END UNTIL FALSE/ 



00054600 
00054700 
00054800 



37 

38 



END CASE 4; 
END ALL CASES; 
END PROflRAM. 



00054900 
00055000 
Q 0Q55 1QQ 



40 
41 
42 



ENDiEND, LAST CARD ON OCRQING TAPE 99VV9999 

QSSxO><xQ><xQ><xQ><xG><xg>SxQ><x9>SxQ><xQi<xQ2<xg><xQ>SxQ>Sx(,i^isxQ>SxQi<xo>Sxg2:<x 
QS^xQ><xd^SxQ><xQ^<xQ><XQ><ixQ>Sx9><xg>SxQ><xQ><xQ><xiaSSxQ>SxQ>$xQ>SxQ^SxQ>Sxu><) < 



45 

46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



-n 
•itij 

47,1 

4a| 
'is' 
6.1 



..J, 



LABEL OOOOOOOOOPRIMTKOOWSIOOCC tX OU JtC f/RErtU; K 1LE SQURCEF ILE=S yMBUL/AUXD A T A*OUOQOOO 



OBJECT /READ 



3 

4 

6 

7 

9 

10 

12 
13 

IS 
16 

► » 
18 

19 ~ 

| 20 

21 

22 

\ » 

24 
25 
| 26 
27 
28 

I a 

30 
31 
I 32 
33 
34 
35 
36 

37 ~ 
38 



jO 



40 

i «1 
42 
43 
44 
45 
46 
47 
•8 
49 
SO 
51 
52 
53 
54 
55 
56 
57 



■1.1 



55 

,»ti 



